Public Class Mcia_Suelta_Planeada
  	Private v_vid As Long
	Private v_ptda_mov_plan As Long
	Private v_ptda_ms As Long
	Private v_producto As Long
	Private v_cantidad As Long
	Private v_embalaje As Long
	Private v_cant_acum As Long
	Private v_prod_plan As Long
	Private v_puerto As Long
	Private v_area As String
	Private v_ganchos As Long
	Private v_tons As Long

  
  	Public Property vid() As Long
		Get
            Return v_vid
        End Get
		Set(ByVal value As Long)
			v_vid = value
		End Set
	End Property

	Public Property ptda_mov_plan() As Long
		Get
            Return v_ptda_mov_plan
        End Get
		Set(ByVal value As Long)
			v_ptda_mov_plan = value
		End Set
	End Property

	Public Property ptda_ms() As Long
		Get
            Return v_ptda_ms
        End Get
		Set(ByVal value As Long)
			v_ptda_ms = value
		End Set
	End Property

	Public Property producto() As Long
		Get
            Return v_producto
        End Get
		Set(ByVal value As Long)
			v_producto = value
		End Set
	End Property

	Public Property cantidad() As Long
		Get
            Return v_cantidad
        End Get
		Set(ByVal value As Long)
			v_cantidad = value
		End Set
	End Property

	Public Property embalaje() As Long
		Get
            Return v_embalaje
        End Get
		Set(ByVal value As Long)
			v_embalaje = value
		End Set
	End Property

	Public Property cant_acum() As Long
		Get
            Return v_cant_acum
        End Get
		Set(ByVal value As Long)
			v_cant_acum = value
		End Set
	End Property

	Public Property prod_plan() As Long
		Get
            Return v_prod_plan
        End Get
		Set(ByVal value As Long)
			v_prod_plan = value
		End Set
	End Property

	Public Property puerto() As Long
		Get
            Return v_puerto
        End Get
		Set(ByVal value As Long)
			v_puerto = value
		End Set
	End Property

	Public Property area() As String
		Get
            Return v_area.Trim
        End Get
		Set(ByVal value As String)
			v_area = value.Trim
		End Set
	End Property

	Public Property ganchos() As Long
		Get
            Return v_ganchos
        End Get
		Set(ByVal value As Long)
			v_ganchos = value
		End Set
	End Property

	Public Property tons() As Long
		Get
            Return v_tons
        End Get
		Set(ByVal value As Long)
			v_tons = value
		End Set
	End Property


  
End Class
